% Compute characteristic values of pressure and flow waves
% mean pressure and flow
% total peripheral resistance
% CO
% heart period
% input impedance
% characteristic impedance in time and frequency domain
%
%

global time pressure flow;

meanP=mean(pressure);
meanQ=mean(flow);

aantal=length(time);
TVR=meanP/meanQ;
CO=meanQ*60/1000;
T=max(time);
HR=60/T;

fprintf(1,'\ngeneralities');
fprintf(1,'\nheart period: %g s, MAP: %g mmHg, mean flow: %g ml/s, TVR: %g mmHg/(ml/s),CO: %g l/min',T,meanP,meanQ,TVR,CO)


